object RegDlg: TRegDlg Left = 336 Top = 345 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Register' ClientHeight = 131 ClientWidth = 249 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poOwnerFormCenter OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object enterlicencedata_grp: TGroupBox Left = 2 Top = 1 Width = 245 Height = 89 Caption = 'Enter Licence Data' TabOrder = 0 object name_lbl: TLabel Left = 9 Top = 18 Width = 34 Height = 13 Caption = 'Name :' end object serial_lbl: TLabel Left = 9 Top = 50 Width = 42 Height = 13 Caption = 'Serial # :' end object name_txt: TEdit Left = 72 Top = 16 Width = 169 Height = 21 TabOrder = 0 end object pass_txt: TEdit Left = 72 Top = 50 Width = 169 Height = 21 TabOrder = 1 end end object ok_btn: TButton Left = 24 Top = 98 Width = 89 Height = 26 Caption = 'Ok' Default = True TabOrder = 1 OnClick = ok_btnClick end object cancel_btn: TButton Left = 136 Top = 98 Width = 88 Height = 26 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 2 end object TS_reg: TTextStorage Items.Strings = ( 'Valid Licence. Thank you for registering our product.' 'Invalid Licence Data.') Top = 104 end end